PC World 2007 February/PCWorld_2007-02_cd.bin/domacnost a kancelar/avedesk/AveDesk13.exe/Effects/AutoRise.effectlet

Extensible Markup Language | 2005-06-17 | 3KB | 138 lines

<?xml version="1.0" encoding="UTF-8"?>
<effectlet>
    <info>
        <name>AutoRise Script</name>
        <author>Dreadnaut</author>
        <notes><![CDATA[ For bugs or anything else, contact me at [e-mail] ]]></notes>
        <version>0.0.1</version>
    </info>
    <settings>
        <param name="Debug" type="Boolean" defval="False"/>
    </settings>

    <preferences>


<!--
    what about more possibilities ?

    <preference name="riseOn"    type="range" defval="0" min="0" max="3">
    0    Mouse on
    1    Select
    2    Left click
    3    Right click
        </preference>
    <preference name="sitOn"    type="range" defval="0" min="0" max="3">
    0    Mouse out
    1    Deselect
    2    Left click
    3    Right click
        </preference>
-->

    </preferences>

    <images>
    </images>

    <script engine="vbScript"><![CDATA[

    Dim Counter
    Dim Numb
    Dim OriginalState

    Sub OnCreate()
    riseOn = 0
    sitOn = 0
        Preferences.ReadAll()
    OriginalState = Desklet.Style
    End Sub

    Sub doRise()
    if Desklet.Style <> styleTop Then
        Numb = 1
        Desklet.Style = styleTop
    End If
    End Sub

    Sub doSit()
    if Desklet.Style <> OriginalState Then
        Desklet.Style = OriginalState
    End If
    End Sub


    Sub OnMouseOn()
    If (riseOn = 0) Then
        If (Numb = 0) Then
            doRise()
        Else
            Numb = 0
        End If
    End If
    End Sub

    Sub OnMouseout()
    If (sitOn = 0) Then
        If (Numb = 0) Then
            doSit()
        Else
            Numb = 0
        End If
    End If
    End Sub

    'Function OnBeforeDraw(IsMouseOn, IsSelected, IsPreview)
    'End Function

    'Function OnAfterDraw(IsMouseOn, IsSelected, IsPreview)
    'End Function

    Sub OnSave()
    Desklet.Style = OriginalState
        Preferences.SaveAll
    End Sub

'    Function OnPreferenceChange(Preference, oldValue, newValue)
'    End Function

'    Sub OnTimer()
'    End Sub

'    Sub OnSelect()
'    End Sub

'    Sub OnDeselect()
'    End Sub

    'Sub OnShow()
    'End Sub

    'Sub OnHide()
    'End Sub

    'Sub OnConfigure()
        'the configuration dialog with default UI for
        'XML preferences will be shown.
        'An additional dialog designer is on its way. It will
        'extend the available default preferences of type:
        ' - slider, checkbox, combobox (builtin, v. 1.1, free on form with v. 1.2)
        ' - textbox, file browser, favorites URL (builtin and free on form, v. 1.2)
        ' - Any ocx (external, only free on form, v. 1.2)
    'End Sub

'    Sub OnLeftClick()
'    End Sub

'    Sub OnRightClick()
'    End Sub

    Sub OnDestroy
    Numb = 1
    Desklet.Style = OriginalState
    End Sub


    ]]></script>
</effectlet>